InfoMagic Internet Tools 1993 July

home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / iso9660 / mail / listserv / utils / chk_addr.pl < prev next >
Mailbox/MIME Entity | 1992-12-14 | 3.8 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: Mailbox/MIME Entity (archive/mbox).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Mailbox/MIME Entity `(archive/mbox)`	magic	Supported
`100%`	dexvert	Internet Message Format `(text/imf)`	magic	Supported
`1%`	dexvert	Printerleaf/WorldView document `(document/printerleafWorldViewDocument)`	ext	Unsupported
`1%`	dexvert	Claris Works palette files `(other/clarisWorksPaletteFiles)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	Mailbox text, 1st line "From List-Managers-Owner@GreatCircle.COM Tue Dec 15 09:10:08 1992", ASCII text	default
`100%`	TrID	E-Mail message (Var. 2)	default
`100%`	checkBytes	Printable ASCII	default
`100%`	perlTextCheck	Likely Text (Perl)	default
`100%`	detectItEasy	Format: Plain text[LF]	default
`100%`	xdgMime	application/mbox	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 4c 69 73 | 74 2d 4d 61 6e 61 67 65 |From Lis|t-Manage|
|00000010| 72 73 2d 4f 77 6e 65 72 | 40 47 72 65 61 74 43 69 |rs-Owner|@GreatCi|
|00000020| 72 63 6c 65 2e 43 4f 4d | 20 54 75 65 20 44 65 63 |rcle.COM| Tue Dec|
|00000030| 20 31 35 20 30 39 3a 31 | 30 3a 30 38 20 31 39 39 | 15 09:1|0:08 199|
|00000040| 32 0a 52 65 74 75 72 6e | 2d 50 61 74 68 3a 20 3c |2.Return|-Path: <|
|00000050| 4c 69 73 74 2d 4d 61 6e | 61 67 65 72 73 2d 4f 77 |List-Man|agers-Ow|
|00000060| 6e 65 72 40 47 72 65 61 | 74 43 69 72 63 6c 65 2e |ner@Grea|tCircle.|
|00000070| 43 4f 4d 3e 0a 52 65 63 | 65 69 76 65 64 3a 20 66 |COM>.Rec|eived: f|
|00000080| 72 6f 6d 20 72 65 6c 61 | 79 31 2e 55 55 2e 4e 45 |rom rela|y1.UU.NE|
|00000090| 54 20 62 79 20 63 73 2d | 6d 61 69 6c 2e 62 75 2e |T by cs-|mail.bu.|
|000000a0| 65 64 75 20 28 35 2e 36 | 31 2b 2b 2b 2f 53 4d 49 |edu (5.6|1+++/SMI|
|000000b0| 2d 34 2e 30 2e 33 29 0a | 09 69 64 20 41 41 31 35 |-4.0.3).|.id AA15|
|000000c0| 37 32 32 3b 20 54 75 65 | 2c 20 31 35 20 44 65 63 |722; Tue|, 15 Dec|
|000000d0| 20 39 32 20 30 39 3a 31 | 30 3a 30 30 20 2d 30 35 | 92 09:1|0:00 -05|
|000000e0| 30 30 0a 52 65 63 65 69 | 76 65 64 3a 20 66 72 6f |00.Recei|ved: fro|
|000000f0| 6d 20 6d 79 63 72 6f 66 | 74 2e 47 72 65 61 74 43 |m mycrof|t.GreatC|
|00000100| 69 72 63 6c 65 2e 43 4f | 4d 20 62 79 20 72 65 6c |ircle.CO|M by rel|
|00000110| 61 79 31 2e 55 55 2e 4e | 45 54 20 77 69 74 68 20 |ay1.UU.N|ET with |
|00000120| 53 4d 54 50 20 0a 09 28 | 35 2e 36 31 2f 55 55 4e |SMTP ..(|5.61/UUN|
|00000130| 45 54 2d 69 6e 74 65 72 | 6e 65 74 2d 70 72 69 6d |ET-inter|net-prim|
|00000140| 61 72 79 29 20 69 64 20 | 41 41 32 35 37 30 31 3b |ary) id |AA25701;|
|00000150| 20 54 75 65 2c 20 31 35 | 20 44 65 63 20 39 32 20 | Tue, 15| Dec 92 |
|00000160| 30 38 3a 35 36 3a 30 37 | 20 2d 30 35 30 30 0a 52 |08:56:07| -0500.R|
|00000170| 65 63 65 69 76 65 64 3a | 20 62 79 20 6d 79 63 72 |eceived:| by mycr|
|00000180| 6f 66 74 2e 47 72 65 61 | 74 43 69 72 63 6c 65 2e |oft.Grea|tCircle.|
|00000190| 43 4f 4d 20 28 34 2e 31 | 2f 53 4d 49 2d 34 2e 31 |COM (4.1|/SMI-4.1|
|000001a0| 2f 42 72 65 6e 74 2d 39 | 32 31 30 31 35 29 0a 09 |/Brent-9|21015)..|
|000001b0| 69 64 20 41 41 32 34 32 | 33 32 3b 20 54 75 65 2c |id AA242|32; Tue,|
|000001c0| 20 31 35 20 44 65 63 20 | 39 32 20 30 35 3a 33 39 | 15 Dec |92 05:39|
|000001d0| 3a 34 30 20 50 53 54 0a | 52 65 63 65 69 76 65 64 |:40 PST.|Received|
|000001e0| 3a 20 66 72 6f 6d 20 6e | 6f 74 65 32 2e 6e 73 66 |: from n|ote2.nsf|
|000001f0| 2e 67 6f 76 20 62 79 20 | 6d 79 63 72 6f 66 74 2e |.gov by |mycroft.|
|00000200| 47 72 65 61 74 43 69 72 | 63 6c 65 2e 43 4f 4d 20 |GreatCir|cle.COM |
|00000210| 28 34 2e 31 2f 53 4d 49 | 2d 34 2e 31 2f 42 72 65 |(4.1/SMI|-4.1/Bre|
|00000220| 6e 74 2d 39 32 31 30 31 | 35 29 0a 09 69 64 20 41 |nt-92101|5)..id A|
|00000230| 42 32 34 32 31 31 3b 20 | 54 75 65 2c 20 31 35 20 |B24211; |Tue, 15 |
|00000240| 44 65 63 20 39 32 20 30 | 35 3a 33 38 3a 32 35 20 |Dec 92 0|5:38:25 |
|00000250| 50 53 54 0a 52 65 63 65 | 69 76 65 64 3a 20 66 72 |PST.Rece|ived: fr|
|00000260| 6f 6d 20 7a 2e 6e 73 66 | 2e 67 6f 76 20 62 79 20 |om z.nsf|.gov by |
|00000270| 4e 6f 74 65 32 2e 6e 73 | 66 2e 67 6f 76 20 69 64 |Note2.ns|f.gov id|
|00000280| 20 61 61 32 36 33 30 35 | 3b 20 31 35 20 44 65 63 | aa26305|; 15 Dec|
|00000290| 20 39 32 20 38 3a 33 34 | 20 45 53 54 0a 52 65 63 | 92 8:34| EST.Rec|
|000002a0| 65 69 76 65 64 3a 20 62 | 79 20 7a 2e 6e 73 66 2e |eived: b|y z.nsf.|
|000002b0| 67 6f 76 20 28 34 2e 31 | 2f 53 4d 49 2d 34 2e 31 |gov (4.1|/SMI-4.1|
|000002c0| 29 0a 09 69 64 20 41 41 | 32 34 31 33 38 3b 20 54 |)..id AA|24138; T|
|000002d0| 75 65 2c 20 31 35 20 44 | 65 63 20 39 32 20 30 38 |ue, 15 D|ec 92 08|
|000002e0| 3a 33 36 3a 32 37 20 45 | 53 54 0a 4d 65 73 73 61 |:36:27 E|ST.Messa|
|000002f0| 67 65 2d 49 64 3a 20 3c | 39 32 31 32 31 35 31 33 |ge-Id: <|92121513|
|00000300| 33 36 2e 41 41 32 34 31 | 33 38 40 7a 2e 6e 73 66 |36.AA241|38@z.nsf|
|00000310| 2e 67 6f 76 3e 0a 46 72 | 6f 6d 3a 20 22 4d 69 63 |.gov>.Fr|om: "Mic|
|00000320| 68 61 65 6c 20 48 2e 20 | 4d 6f 72 73 65 22 20 3c |hael H. |Morse" <|
|00000330| 6d 6d 6f 72 73 65 40 7a | 2e 6e 73 66 2e 67 6f 76 |mmorse@z|.nsf.gov|
|00000340| 3e 0a 44 61 74 65 3a 20 | 54 75 65 2c 20 31 35 20 |>.Date: |Tue, 15 |
|00000350| 44 65 63 20 31 39 39 32 | 20 30 38 3a 33 36 3a 32 |Dec 1992| 08:36:2|
|00000360| 37 20 45 53 54 0a 49 6e | 2d 52 65 70 6c 79 2d 54 |7 EST.In|-Reply-T|
|00000370| 6f 3a 20 47 65 6e 65 20 | 52 61 63 6b 6f 77 20 3c |o: Gene |Rackow <|
|00000380| 72 61 63 6b 6f 77 40 61 | 6e 74 61 72 65 73 2e 6d |rackow@a|ntares.m|
|00000390| 63 73 2e 61 6e 6c 2e 67 | 6f 76 3e 0a 20 20 20 20 |cs.anl.g|ov>.    |
|000003a0| 20 20 20 22 52 65 3a 20 | 48 6f 77 20 74 6f 20 64 |   "Re: |How to d|
|000003b0| 65 61 6c 20 77 69 74 68 | 20 62 6f 75 6e 63 65 73 |eal with| bounces|
|000003c0| 22 20 28 44 65 63 20 31 | 34 2c 20 31 30 3a 30 39 |" (Dec 1|4, 10:09|
|000003d0| 70 6d 29 0a 58 2d 4d 61 | 69 6c 65 72 3a 20 4d 61 |pm).X-Ma|iler: Ma|
|000003e0| 69 6c 20 55 73 65 72 27 | 73 20 53 68 65 6c 6c 20 |il User'|s Shell |
|000003f0| 28 37 2e 31 2e 31 20 35 | 2f 30 32 2f 39 30 29 0a |(7.1.1 5|/02/90).|
|00000400| 54 6f 3a 20 47 65 6e 65 | 20 52 61 63 6b 6f 77 20 |To: Gene| Rackow |
|00000410| 3c 72 61 63 6b 6f 77 40 | 61 6e 74 61 72 65 73 2e |<rackow@|antares.|
|00000420| 6d 63 73 2e 61 6e 6c 2e | 67 6f 76 3e 2c 0a 20 20 |mcs.anl.|gov>,.  |
|00000430| 20 20 20 20 20 20 47 65 | 73 73 20 53 68 61 6e 6b |      Ge|ss Shank|
|00000440| 61 72 20 3c 67 65 73 73 | 40 6b 6e 65 78 2e 67 77 |ar <gess|@knex.gw|
|00000450| 69 6e 6e 65 74 74 2e 63 | 6f 6d 3e 0a 53 75 62 6a |innett.c|om>.Subj|
|00000460| 65 63 74 3a 20 52 65 3a | 20 48 6f 77 20 74 6f 20 |ect: Re:| How to |
|00000470| 64 65 61 6c 20 77 69 74 | 68 20 62 6f 75 6e 63 65 |deal wit|h bounce|
|00000480| 73 0a 43 63 3a 20 6c 69 | 73 74 2d 6d 61 6e 61 67 |s.Cc: li|st-manag|
|00000490| 65 72 73 40 47 72 65 61 | 74 43 69 72 63 6c 65 2e |ers@Grea|tCircle.|
|000004a0| 43 4f 4d 0a 53 65 6e 64 | 65 72 3a 20 4c 69 73 74 |COM.Send|er: List|
|000004b0| 2d 4d 61 6e 61 67 65 72 | 73 2d 4f 77 6e 65 72 40 |-Manager|s-Owner@|
|000004c0| 47 72 65 61 74 43 69 72 | 63 6c 65 2e 43 4f 4d 0a |GreatCir|cle.COM.|
|000004d0| 50 72 65 63 65 64 65 6e | 63 65 3a 20 62 75 6c 6b |Preceden|ce: bulk|
|000004e0| 0a 53 74 61 74 75 73 3a | 20 52 0a 0a 0a 3e 20 53 |.Status:| R...> S|
|000004f0| 6f 6d 65 74 68 69 6e 67 | 20 74 68 61 74 20 49 27 |omething| that I'|
|00000500| 76 65 20 62 65 65 6e 20 | 74 68 69 6e 6b 69 6e 67 |ve been |thinking|
|00000510| 20 61 62 6f 75 74 20 61 | 64 64 69 6e 67 20 69 6e | about a|dding in|
|00000520| 74 6f 20 6d 61 6a 6f 72 | 64 6f 6d 6f 20 69 73 20 |to major|domo is |
|00000530| 61 0a 3e 20 77 61 79 20 | 74 6f 20 68 61 76 65 20 |a.> way |to have |
|00000540| 61 20 6c 69 73 74 20 6f | 66 20 61 64 64 72 65 73 |a list o|f addres|
|00000550| 65 73 20 74 6f 20 63 68 | 65 63 6b 20 62 65 66 6f |es to ch|eck befo|
|00000560| 72 65 20 61 64 64 69 6e | 67 20 74 68 65 6d 20 74 |re addin|g them t|
|00000570| 6f 20 74 68 65 0a 3e 20 | 6c 69 73 74 2e 20 20 49 |o the.> |list.  I|
|00000580| 66 20 74 68 65 20 61 64 | 64 72 65 73 73 20 69 73 |f the ad|dress is|
|00000590| 20 69 6e 20 74 68 65 20 | 62 6f 7a 6f 20 6c 69 73 | in the |bozo lis|
|000005a0| 74 2c 20 74 68 65 20 72 | 65 71 75 65 73 74 20 77 |t, the r|equest w|
|000005b0| 69 6c 6c 20 62 65 0a 3e | 20 64 65 6e 69 65 64 20 |ill be.>| denied |
|000005c0| 77 69 74 68 20 73 6f 6d | 65 20 6d 65 73 73 61 67 |with som|e messag|
|000005d0| 65 20 28 70 6f 73 73 69 | 62 6c 79 29 20 75 6e 74 |e (possi|bly) unt|
|000005e0| 69 6c 20 74 68 65 20 6c | 69 73 74 20 6d 61 69 6e |il the l|ist main|
|000005f0| 74 61 69 6e 65 72 20 68 | 61 73 0a 3e 20 62 65 65 |tainer h|as.> bee|
|00000600| 6e 20 6e 6f 74 69 66 69 | 65 64 20 74 68 61 74 20 |n notifi|ed that |
|00000610| 74 68 65 20 62 6f 7a 6f | 20 61 64 64 72 65 73 73 |the bozo| address|
|00000620| 20 68 61 73 20 62 65 65 | 6e 20 63 6f 72 72 65 63 | has bee|n correc|
|00000630| 74 65 64 20 69 6e 20 61 | 20 77 61 79 20 73 75 69 |ted in a| way sui|
|00000640| 74 61 62 6c 65 0a 3e 20 | 74 6f 20 62 6f 74 68 20 |table.> |to both |
|00000650| 70 61 72 74 69 65 73 2e | 20 20 54 68 65 72 65 20 |parties.|  There |
|00000660| 61 72 65 20 73 6f 6d 65 | 20 61 64 64 72 65 73 73 |are some| address|
|00000670| 65 73 20 74 68 61 74 20 | 6b 65 65 70 20 70 6f 70 |es that |keep pop|
|00000680| 70 69 6e 67 20 75 70 20 | 62 61 64 0a 3e 20 61 6e |ping up |bad.> an|
|00000690| 64 20 74 68 65 20 75 73 | 65 72 20 6b 65 65 70 73 |d the us|er keeps|
|000006a0| 20 73 65 6e 64 69 6e 67 | 20 69 6e 20 73 75 62 73 | sending| in subs|
|000006b0| 63 72 69 62 65 20 6d 65 | 20 6d 65 73 73 61 67 65 |cribe me| message|
|000006c0| 73 20 6a 75 73 74 20 74 | 6f 20 73 74 61 79 20 6f |s just t|o stay o|
|000006d0| 6e 20 74 68 65 0a 3e 20 | 6c 69 73 74 2c 20 65 76 |n the.> |list, ev|
|000006e0| 65 6e 20 74 68 6f 75 67 | 68 20 68 69 73 20 61 64 |en thoug|h his ad|
|000006f0| 64 72 65 73 73 2c 20 6f | 72 20 73 6f 6d 65 74 68 |dress, o|r someth|
|00000700| 69 6e 67 2c 20 69 73 20 | 66 6c 61 6b 65 79 20 61 |ing, is |flakey a|
|00000710| 74 20 62 65 73 74 2e 0a | 0a 44 6f 65 73 20 6d 61 |t best..|.Does ma|
|00000720| 6a 6f 72 64 6f 6d 6f 20 | 63 68 65 63 6b 20 61 64 |jordomo |check ad|
|00000730| 64 72 65 73 73 65 73 20 | 61 74 20 61 6c 6c 20 62 |dresses |at all b|
|00000740| 65 66 6f 72 65 20 70 75 | 74 74 69 6e 67 20 74 68 |efore pu|tting th|
|00000750| 65 6d 20 6f 6e 20 74 68 | 65 20 6c 69 73 74 3f 0a |em on th|e list?.|
|00000760| 49 27 6d 20 70 72 65 74 | 74 79 20 73 75 72 65 20 |I'm pret|ty sure |
|00000770| 74 68 61 74 20 4c 69 73 | 74 73 65 72 76 20 66 6f |that Lis|tserv fo|
|00000780| 72 20 55 6e 69 78 20 64 | 6f 65 73 20 6e 6f 74 2e |r Unix d|oes not.|
|00000790| 20 20 49 20 68 61 76 65 | 20 61 20 6c 69 74 74 6c |  I have| a littl|
|000007a0| 65 0a 50 65 72 6c 20 73 | 63 72 69 70 74 20 28 49 |e.Perl s|cript (I|
|000007b0| 27 6d 20 73 74 61 72 74 | 69 6e 67 20 74 6f 20 73 |'m start|ing to s|
|000007c0| 6f 75 6e 64 20 6c 69 6b | 65 20 61 20 62 72 6f 6b |ound lik|e a brok|
|000007d0| 65 6e 20 72 65 63 6f 72 | 64 29 20 74 68 61 74 20 |en recor|d) that |
|000007e0| 75 73 65 73 0a 6e 73 6c | 6f 6f 6b 75 70 20 74 6f |uses.nsl|ookup to|
|000007f0| 20 61 74 20 6c 65 61 73 | 74 20 63 68 65 63 6b 20 | at leas|t check |
|00000800| 74 68 61 74 20 74 68 65 | 20 68 6f 73 74 20 6e 61 |that the| host na|
|00000810| 6d 65 20 69 73 20 69 6e | 20 74 68 65 20 44 4e 53 |me is in| the DNS|
|00000820| 2e 20 20 54 68 61 74 0a | 68 61 73 20 61 6c 6d 6f |.  That.|has almo|
|00000830| 73 74 20 74 6f 74 61 6c | 6c 79 20 63 75 74 20 6f |st total|ly cut o|
|00000840| 75 74 20 62 6f 75 6e 63 | 65 73 20 6f 6e 20 61 20 |ut bounc|es on a |
|00000850| 6e 6f 6e 2d 6c 69 73 74 | 73 65 72 76 20 73 79 73 |non-list|serv sys|
|00000860| 74 65 6d 20 49 20 72 75 | 6e 2e 0a 49 66 20 61 6e |tem I ru|n..If an|
|00000870| 79 6f 6e 65 27 73 20 69 | 6e 74 65 72 65 73 74 65 |yone's i|ntereste|
|00000880| 64 2c 20 49 27 76 65 20 | 69 6e 63 6c 75 64 65 64 |d, I've |included|
|00000890| 20 69 74 20 68 65 72 65 | 2e 20 20 49 74 27 73 20 | it here|.  It's |
|000008a0| 6e 6f 74 20 70 65 72 66 | 65 63 74 2c 20 62 75 74 |not perf|ect, but|
|000008b0| 0a 69 74 20 64 6f 65 73 | 20 6d 6f 73 74 20 6f 66 |.it does| most of|
|000008c0| 20 74 68 65 20 6a 6f 62 | 2e 0a 0a 2d 2d 4d 69 6b | the job|...--Mik|
|000008d0| 65 0a 0a 23 21 2f 75 73 | 72 2f 6c 6f 63 61 6c 2f |e..#!/us|r/local/|
|000008e0| 62 69 6e 2f 70 65 72 6c | 0a 23 20 61 20 73 63 72 |bin/perl|.# a scr|
|000008f0| 69 70 74 20 74 6f 20 63 | 68 65 63 6b 20 61 20 6d |ipt to c|heck a m|
|00000900| 61 69 6c 20 61 64 64 72 | 65 73 73 0a 23 20 72 65 |ail addr|ess.# re|
|00000910| 74 75 72 6e 73 20 30 20 | 69 66 20 4f 4b 20 28 66 |turns 0 |if OK (f|
|00000920| 61 72 20 61 73 20 77 65 | 20 6b 6e 6f 77 29 0a 23 |ar as we| know).#|
|00000930| 20 72 65 74 75 72 6e 73 | 20 31 20 69 66 20 6e 6f | returns| 1 if no|
|00000940| 74 2e 0a 0a 24 64 65 62 | 75 67 20 3d 20 30 3b 0a |t...$deb|ug = 0;.|
|00000950| 24 74 6d 70 20 3d 20 22 | 2f 74 6d 70 2f 63 68 6b |$tmp = "|/tmp/chk|
|00000960| 61 64 64 72 24 24 22 3b | 0a 69 66 20 28 24 23 41 |addr$$";|.if ($#A|
|00000970| 52 47 56 20 21 3d 20 30 | 29 7b 0a 20 20 20 70 72 |RGV != 0|){.   pr|
|00000980| 69 6e 74 28 22 75 73 61 | 67 65 3a 20 63 68 65 63 |int("usa|ge: chec|
|00000990| 6b 5f 61 64 64 72 20 61 | 64 64 72 65 73 73 5c 6e |k_addr a|ddress\n|
|000009a0| 22 29 3b 0a 20 20 20 26 | 6c 65 61 76 65 28 31 29 |");.   &|leave(1)|
|000009b0| 3b 0a 7d 0a 24 74 65 73 | 74 20 3d 20 24 41 52 47 |;.}.$tes|t = $ARG|
|000009c0| 56 5b 30 5d 3b 0a 0a 23 | 20 61 63 74 75 61 6c 6c |V[0];..#| actuall|
|000009d0| 79 2c 20 74 68 65 20 66 | 69 72 73 74 20 74 77 6f |y, the f|irst two|
|000009e0| 20 74 65 73 74 73 2c 20 | 66 6f 72 20 31 29 20 65 | tests, |for 1) e|
|000009f0| 6d 62 65 64 64 65 64 20 | 73 70 61 63 65 73 20 61 |mbedded |spaces a|
|00000a00| 6e 64 20 0a 23 20 32 29 | 20 6e 6f 20 40 20 73 69 |nd .# 2)| no @ si|
|00000a10| 67 6e 20 77 69 6c 6c 20 | 6e 65 76 65 72 20 66 61 |gn will |never fa|
|00000a20| 69 6c 2c 20 62 65 63 61 | 75 73 65 20 64 6f 77 6e |il, beca|use down|
|00000a30| 6c 6f 61 64 20 70 72 65 | 76 65 6e 74 73 0a 23 20 |load pre|vents.# |
|00000a40| 73 70 61 63 65 73 2c 20 | 61 6e 64 20 61 64 64 73 |spaces, |and adds|
|00000a50| 20 22 40 6e 73 66 2e 67 | 6f 76 22 20 74 6f 20 61 | "@nsf.g|ov" to a|
|00000a60| 64 64 72 65 73 73 65 73 | 20 77 69 74 68 6f 75 74 |ddresses| without|
|00000a70| 20 61 6e 20 40 2e 0a 0a | 23 20 64 6f 65 73 20 69 | an @...|# does i|
|00000a80| 74 20 68 61 76 65 20 73 | 70 61 63 65 73 3f 0a 24 |t have s|paces?.$|
|00000a90| 6e 75 6d 5f 73 70 61 63 | 65 73 20 3d 20 24 74 65 |num_spac|es = $te|
|00000aa0| 73 74 20 3d 7e 20 74 72 | 2f 20 2f 20 2f 3b 0a 69 |st =~ tr|/ / /;.i|
|00000ab0| 66 20 28 24 6e 75 6d 5f | 73 70 61 63 65 73 29 7b |f ($num_|spaces){|
|00000ac0| 0a 20 20 20 26 6c 65 61 | 76 65 28 31 29 3b 0a 7d |.   &lea|ve(1);.}|
|00000ad0| 0a 0a 23 20 64 6f 65 73 | 20 69 74 20 68 61 76 65 |..# does| it have|
|00000ae0| 20 61 6e 20 40 3f 0a 24 | 6e 75 6d 5f 61 74 73 20 | an @?.$|num_ats |
|00000af0| 3d 20 24 74 65 73 74 20 | 3d 7e 20 74 72 2f 5c 40 |= $test |=~ tr/\@|
|00000b00| 2f 5c 40 2f 3b 0a 69 66 | 20 28 24 6e 75 6d 5f 61 |/\@/;.if| ($num_a|
|00000b10| 74 73 20 21 3d 20 31 29 | 7b 0a 20 20 20 26 6c 65 |ts != 1)|{.   &le|
|00000b20| 61 76 65 28 31 29 3b 0a | 7d 0a 0a 23 20 64 6f 65 |ave(1);.|}..# doe|
|00000b30| 73 20 69 74 20 68 61 76 | 65 20 61 20 72 68 73 20 |s it hav|e a rhs |
|00000b40| 61 6e 64 20 6c 68 73 3f | 0a 28 24 6c 68 73 2c 24 |and lhs?|.($lhs,$|
|00000b50| 72 68 73 29 20 3d 20 73 | 70 6c 69 74 28 2f 40 2f |rhs) = s|plit(/@/|
|00000b60| 2c 24 74 65 73 74 29 3b | 0a 69 66 20 28 21 20 24 |,$test);|.if (! $|
|00000b70| 6c 68 73 20 7c 7c 20 21 | 20 24 72 68 73 29 20 7b |lhs || !| $rhs) {|
|00000b80| 20 20 20 20 20 23 20 6d | 75 73 74 20 68 61 76 65 |     # m|ust have|
|00000b90| 20 62 6f 74 68 20 61 20 | 72 68 73 20 61 6e 64 20 | both a |rhs and |
|00000ba0| 6c 68 73 0a 20 20 20 26 | 6c 65 61 76 65 28 31 29 |lhs.   &|leave(1)|
|00000bb0| 3b 0a 7d 0a 0a 23 20 64 | 6f 65 73 20 74 68 65 20 |;.}..# d|oes the |
|00000bc0| 72 68 73 20 68 61 76 65 | 20 64 6f 74 73 3f 0a 24 |rhs have| dots?.$|
|00000bd0| 6e 75 6d 5f 64 6f 74 73 | 20 3d 20 24 72 68 73 20 |num_dots| = $rhs |
|00000be0| 3d 7e 20 74 72 2f 2e 2f | 2e 2f 3b 0a 69 66 20 28 |=~ tr/./|./;.if (|
|00000bf0| 21 20 24 6e 75 6d 5f 64 | 6f 74 73 29 20 7b 0a 20 |! $num_d|ots) {. |
|00000c00| 20 20 26 6c 65 61 76 65 | 28 31 29 3b 0a 7d 0a 0a |  &leave|(1);.}..|
|00000c10| 23 20 69 66 20 69 74 20 | 68 61 73 20 6a 75 73 74 |# if it |has just|
|00000c20| 20 6f 6e 65 20 64 6f 74 | 2c 20 64 6f 65 73 20 69 | one dot|, does i|
|00000c30| 74 20 65 6e 64 20 77 69 | 74 68 20 22 42 49 54 4e |t end wi|th "BITN|
|00000c40| 45 54 22 3f 0a 69 66 20 | 28 24 6e 75 6d 5f 64 6f |ET"?.if |($num_do|
|00000c50| 74 73 20 3d 3d 20 31 29 | 20 7b 0a 20 20 20 69 66 |ts == 1)| {.   if|
|00000c60| 20 28 24 72 68 73 20 3d | 7e 20 2f 5c 2e 62 69 74 | ($rhs =|~ /\.bit|
|00000c70| 6e 65 74 24 2f 69 29 20 | 7b 0a 20 20 20 20 20 20 |net$/i) |{.      |
|00000c80| 26 6c 65 61 76 65 28 30 | 29 3b 0a 20 20 20 7d 0a |&leave(0|);.   }.|
|00000c90| 7d 0a 0a 23 20 4f 4b 2c | 20 65 76 65 72 79 74 68 |}..# OK,| everyth|
|00000ca0| 69 6e 67 20 6c 6f 6f 6b | 73 20 70 72 65 74 74 79 |ing look|s pretty|
|00000cb0| 20 67 6f 6f 64 2c 20 6c | 65 74 27 73 20 74 72 79 | good, l|et's try|
|00000cc0| 20 6e 73 6c 6f 6f 6b 75 | 70 0a 6f 70 65 6e 28 4c | nslooku|p.open(L|
|00000cd0| 4f 4f 4b 2c 22 7c 2f 75 | 73 72 2f 65 74 63 2f 6e |OOK,"|/u|sr/etc/n|
|00000ce0| 73 6c 6f 6f 6b 75 70 20 | 3e 20 24 74 6d 70 20 32 |slookup |> $tmp 2|
|00000cf0| 3e 24 74 6d 70 22 29 20 | 7c 7c 20 26 6c 65 61 76 |>$tmp") ||| &leav|
|00000d00| 65 28 31 29 3b 0a 70 72 | 69 6e 74 20 4c 4f 4f 4b |e(1);.pr|int LOOK|
|00000d10| 3c 3c 45 4f 4d 3b 0a 24 | 72 68 73 0a 73 65 74 20 |<<EOM;.$|rhs.set |
|00000d20| 71 75 65 72 79 74 79 70 | 65 3d 4d 58 0a 24 72 68 |querytyp|e=MX.$rh|
|00000d30| 73 0a 45 4f 4d 0a 63 6c | 6f 73 65 28 4c 4f 4f 4b |s.EOM.cl|ose(LOOK|
|00000d40| 29 3b 0a 6f 70 65 6e 28 | 49 4e 2c 24 74 6d 70 29 |);.open(|IN,$tmp)|
|00000d50| 20 7c 7c 20 26 6c 65 61 | 76 65 28 31 29 3b 0a 77 | || &lea|ve(1);.w|
|00000d60| 68 69 6c 65 28 3c 49 4e | 3e 29 7b 20 20 20 20 23 |hile(<IN|>){    #|
|00000d70| 20 6c 6f 6f 6b 20 61 74 | 20 6e 6f 6e 2d 4d 58 20 | look at| non-MX |
|00000d80| 71 75 65 72 79 0a 20 20 | 20 69 66 20 28 2f 5e 3e |query.  | if (/^>|
|00000d90| 20 3e 2f 29 7b 0a 20 20 | 20 20 20 20 6c 61 73 74 | >/){.  |    last|
|00000da0| 3b 0a 20 20 20 7d 0a 20 | 20 20 69 66 20 28 2f 5e |;.   }. |  if (/^|
|00000db0| 4e 61 6d 65 2f 29 20 7b | 0a 20 20 20 20 20 20 24 |Name/) {|.      $|
|00000dc0| 74 72 79 20 3d 20 3c 49 | 4e 3e 3b 0a 20 20 20 20 |try = <I|N>;.    |
|00000dd0| 20 20 69 66 20 28 24 74 | 72 79 20 3d 7e 20 2f 5e |  if ($t|ry =~ /^|
|00000de0| 3e 20 3e 2f 29 7b 0a 20 | 20 20 20 20 20 20 20 20 |> >/){. |        |
|00000df0| 6c 61 73 74 3b 20 20 20 | 20 20 20 20 20 20 20 20 |last;   |        |
|00000e00| 20 20 20 20 23 20 73 68 | 6f 75 6c 64 6e 27 74 20 |    # sh|ouldn't |
|00000e10| 68 61 70 70 65 6e 0a 20 | 20 20 20 20 20 7d 0a 20 |happen. |     }. |
|00000e20| 20 20 20 20 20 69 66 20 | 28 24 74 72 79 20 3d 7e |     if |($try =~|
|00000e30| 20 2f 5e 41 64 64 72 65 | 73 73 3a 5c 73 2b 5c 64 | /^Addre|ss:\s+\d|
|00000e40| 2b 5c 2e 2f 29 20 7b 20 | 23 20 6c 6f 6f 6b 73 20 |+\./) { |# looks |
|00000e50| 67 6f 6f 64 0a 20 20 20 | 20 20 20 20 20 20 26 6c |good.   |      &l|
|00000e60| 65 61 76 65 28 30 29 3b | 0a 20 20 20 20 20 20 7d |eave(0);|.      }|
|00000e70| 0a 20 20 20 7d 0a 7d 0a | 77 68 69 6c 65 28 3c 49 |.   }.}.|while(<I|
|00000e80| 4e 3e 29 7b 20 20 20 20 | 23 20 6c 6f 6f 6b 20 61 |N>){    |# look a|
|00000e90| 74 20 4d 58 20 71 75 65 | 72 79 0a 20 20 20 63 68 |t MX que|ry.   ch|
|00000ea0| 6f 70 3b 0a 20 20 20 69 | 66 20 28 2f 6d 61 69 6c |op;.   i|f (/mail|
|00000eb0| 20 65 78 63 68 61 6e 67 | 65 72 20 3d 2f 29 7b 0a | exchang|er =/){.|
|00000ec0| 20 20 20 20 20 20 26 6c | 65 61 76 65 28 30 29 3b |      &l|eave(0);|
|00000ed0| 0a 20 20 20 7d 0a 7d 0a | 26 6c 65 61 76 65 28 31 |.   }.}.|&leave(1|
|00000ee0| 29 3b 0a 0a 0a 73 75 62 | 20 6c 65 61 76 65 20 7b |);...sub| leave {|
|00000ef0| 0a 20 20 20 69 66 28 24 | 64 65 62 75 67 29 7b 0a |.   if($|debug){.|
|00000f00| 20 20 20 20 20 20 70 72 | 69 6e 74 28 22 45 78 69 |      pr|int("Exi|
|00000f10| 74 20 24 5f 5b 30 5d 2e | 5c 6e 22 29 3b 0a 20 20 |t $_[0].|\n");.  |
|00000f20| 20 7d 0a 20 20 20 69 66 | 28 20 2d 65 20 24 74 6d | }.   if|( -e $tm|
|00000f30| 70 29 20 7b 0a 20 20 20 | 20 20 20 75 6e 6c 69 6e |p) {.   |   unlin|
|00000f40| 6b 28 24 74 6d 70 29 3b | 0a 20 20 20 7d 0a 20 20 |k($tmp);|.   }.  |
|00000f50| 20 65 78 69 74 20 28 24 | 5f 5b 30 5d 29 3b 0a 7d | exit ($|_[0]);.}|
|00000f60| 0a 0a                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+